home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Maclife 13
/
MACLIFE13-No-93-1996.ISO.7z
/
MACLIFE13-No-93.ISO
/
Selection
/
LinoColor4.0Jデモ
/
LinoColor 4.0
/
LinoColor
/
LinoColor.rsrc
/
LSTR_6129_Elliptical
< prev
next >
Wrap
Text File
|
1995-10-12
|
1KB
|
35 lines
{ (LinoF2) (Elliptical) pop pop
% Lino_s1 1.176470588 % 3 2 1 0 index
2 copy exch abs exch abs % Lino_x Lino_y Lino_ax Lino_ay
1 index 1.176470588 mul 1 index add 1 le { % Lino_ax Lino_ay
exch 1.176470588 mul 180 mul cos % Lino_ax
exch 180 mul cos add % Lino_ay
0.25 mul 0.5 add exch pop exch pop
} {
1 index 1.176470588 mul % Lino_ax
1 index add 1.176470588 le { % Lino_ay
1 index 1.176470588 mul 0.9 lt { % Lino_ax
2 index 0 lt { % lino_y
exch 1.176470588 mul add % Lino_ax Lino_ay
-0.01 mul 0.03 add
} {
exch 1.176470588 mul add % Lino_ax Lino_ay
-0.01 mul 0.02 add
} ifelse
} {
3 index 0 lt { % Lino_x
exch 1.176470588 mul add % Lino_ax Lino_ay
-0.01 mul 0.01 add
} {
exch 1.176470588 mul add % Lino_ax Lino_ay
-0.01 mul
} ifelse
} ifelse
exch pop exch pop
} {
1 2 index sub 1.176470588 mul 180 mul cos % Lino_ax
1 2 index sub 180 mul cos add % Lino_ay
-0.25 mul 0.5 sub 5 1 roll pop pop pop pop
}ifelse
}ifelse
} bind